home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
rexxgdb2.zip
/
BindGDB2.CMD
next >
Wrap
OS/2 REXX Batch file
|
1997-08-10
|
1KB
|
46 lines
/* rexx */
'@echo off'
do forever
'cls'
say
say 'BindGDB2 --- Create a REXXGDB2 package on your database(s)'
say 'Copyright (C) 1995-1997 Global Automation Co.'
say 'All Rights Reserved'
say
say 'Please enter the database you want to bind to REXXGDB2 below,'
say 'then press Enter.'
say
say 'Just press Enter (without entering anything) to quit.'
say
say 'Database to be bound to REXXGDB2:'
pull dbn
dbn = strip(dbn)
if dbn = '' then
leave
say
say 'Connecting to database' dbn'...'
'DB2 CONNECT TO' dbn 'IN SHARE MODE'
if rc = 0 then do
say 'Creating a package for REXXGDB2 in' dbn'...'
say '(this may take a minute to complete)'
"DB2 BIND REXXGDB2.BND QUERYOPT 9"
end
say
if rc = 0 then
say dbn 'has successfully bound & can now be accessed w/ G2 functions...'
else
say 'Bind process failed w/ RC =' rc''
say
'pause'
end
say 'Thank you for your interests in REXX, DB2, and OS/2 Warp!'
say 'Many thanks for your considerations in using the REXXGDB2 package!'
say
say 'Simon Husin'
say 'Kent, Washington, U.S.A.'
say 'August 1997'
say 'E-mail: husin@ibm.net'
return 0